The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/mac/prime_CD/pb/PROFILE.DIR/01015_Script_qtrepeat

Text File | 1997-07-29 | 7KB | 291 lines

global qtrep_return
on qtrepeat sp, startt, spshow
  --  put "start at" && startt & " : the movierate is " & the movierate of sprite sp

  cursor 0
  repeat while the movierate of sprite sp = 1
    if the mousedown then
      bail sp
      exit repeat
    end if
    set x = the movietime of sprite sp
    --    put x
    if x > startt then
      --      puppettransition trans, transt, chunk
      go the frame + 1
      --      set the visible of sprite spshow = true
      exit repeat
    end if

    go the frame
  end repeat
end

on qtrepeatnew sp, startt, spshow, sphide,spritelist, tomark
  --  put "start at" && startt & " : the movierate is " & the movierate of sprite sp

  cursor 0
  repeat while the movierate of sprite sp = 1

    --    repeat with x in [24,34,35]
    --
    --      if rollover(x) then
    --        handcursor
    --        repeat while the movierate of sprite sp = 1
    --          if the mousedown then
    --
    --            if rollover(34) then
    --              bail sp
    --              doisstext(tomark)
    --            end if
    --
    --            if rollover(24) then
    --              bail sp
    --              trackbutton(24, cast "close down")
    --              leave_iss
    --              abort
    --            end if
    --
    --            if rollover(33) then
    --
    --              see_sprite([30,31,32],false)
    --              bail sp
    --              abort
    --            end if
    --          end if
    --
    --          if rollover(x) then
    --            updatestage
    --          else
    --            cursor 0
    --            exit repeat
    --          end if
    --        end repeat
    --
    --        exit repeat
    --
    --      end if
    --
    --      updatestage
    --    end repeat

    if the mousedown then
      case true of
        (rollover(34)) : pass
        (rollover(24)) : pass
        otherwise

          bail sp
          cursor 0
          see_sprite(spritelist,true)
          abort
      end case

    end if

    set x = the movietime of sprite sp
    if x > startt then

      if sphide < 49 then set the visible of sprite sphide = false
      set the visible of sprite spshow = true
      updatestage
      exit repeat
    end if

    updatestage
  end repeat
end


on doslideshow tomark, spritelist, qttimes, qtsprite
  see_sprite(spritelist,false)

  go to frame marker(tomark)

  set lastsp = 0
  set the movietime of sprite qtsprite = 0
  set the movierate of sprite qtsprite = 1

  repeat while the movierate of sprite qtsprite = 0
    if the mousedown then
      see_sprite(spritelist,true)
      abort
    end if
  end repeat

  repeat with cue in qttimes
    --    put "waiting for: " & cue
    set pos = getpos(qttimes,cue)

    if lastsp <> 0 then
      set lastsp = getat(spritelist,pos - 1)
      --      put "last sprite: "& lastsp & "/ current: "&getat(spritelist,pos)
    else
      set lastsp = 49               -- more than the number of channels
    end if
    qtrepeatnew qtsprite,cue,getat(spritelist,pos),lastsp,spritelist, tomark
  end repeat

end


on playnew sp, cnum
  qtstop sp
  switchqt sp, cnum
  set the visible of sprite sp = true
  set the volume of sprite sp = 255

  qtstart sp

  global can_play
  put FALSE into item 3 of can_play

  --  put "playing"&& the name of cast cnum&": "  &the movierate of sprite sp && "can_play: " & item 3 of can_play


end

on switchqt sp, cnum
  puppetsprite sp, true
  set oldd to the itemdelimiter
  set the itemdelimiter to "_"
  set id to item 2 of the name of cast cnum of castlib "shared"
  set mtype to item 1 of the name of cast cnum of castlib "shared"
  global gsep,mp

  set fname to id&".mov"
  case true of
    (mtype contains "vid"): set mdir to "moovs"
    (mtype contains "snd"): set mdir to "snd"
  end case
  set p to mp&mdir&gsep&fname
  set m to mtype&"_"&id
  set the filename of member 1 of castlib "shared" to p

  set the itemdelimiter to oldd
--  preloadmember member 1 of castlib "shared"

end


on qtstop sp
  set the movierate of sprite sp = 0
end


on qtstart sp
  set the movietime of sprite sp = 0
  set the movierate of sprite sp = 1
end

on xqtwait sp
  repeat while the movierate of sprite sp = 1

    repeat with x in [24,34,35,36]
      if rollover(x) then
        handcursor
        exit repeat
      end if
    end repeat

    if the mousedown then
      abort
    end if
    updatestage
  end repeat
end

on doisstext tomark

  put "tra_"&item 1 of tomark&item 2 of tomark into iss_text
  put the text of field iss_text into field "issue text"

  see_sprite([37,38,39,40,41],true)
  global issue_text
  set issue_text = FALSE
  abort
end

on qt_waitxx sp, tomark
  repeat while the movierate of sprite sp = 1
    cursor 0
    if the mousedown then pass
    if the mouseup then pass
    updatestage
    go the frame
  end repeat
end qt_wait

on qt_wait sp, tomark
  repeat while the movierate of sprite sp = 1

    cursor 0
    repeat with x in [24,34,35,36]

      if rollover(x) then
        handcursor
        repeat while the movierate of sprite sp = 1
          if the mouseup then pass

          if the mousedown then
            case true of
              (rollover(34)) :
                doisstext(tomark)
                bail sp
              (rollover(24)) : pass
            end case
          end if

          pass
          if rollover(x) then
            updatestage
          else
            cursor 0
            exit repeat
          end if
        end repeat

        exit repeat

      end if

      updatestage
    end repeat

    if the mousedown then
      bail sp
      exit
    end if
    updatestage
  end repeat
end

on bail sp
  cursor 4
  -- puppettransition 02
  global iss_vid
  set iss_vid = 0

  if the castnum of sprite sp <> 0 then
    --    put the casttype of cast (the castnum of sprite sp)
    if the casttype of cast (the castnum of sprite sp) = #digitalvideo then
      set the movierate of sprite sp = 0
      set the movietime of sprite sp = 0
    end if
  end if

  repeat with x in [35,43]
    if rollover(x) then

      exit repeat
    end if
  end repeat
  set_puppets([35,43],false)

  puppettransition 51,01,16
  go to qtrep_return

  set_cursors([9,11,12,17,18,19,24,30,31,32,34,35])
  cursor -1
  updatestage
end